Niveles Tala en las Margaritas

library(plotly)
library(knitr)
library(kableExtra)
library(RCurl)
library(plyr)
source("C:/Users/Rafael Navas/Documents/tala_at_margarita/tools/functions.R")
source("C:/Users/Rafael Navas/INIA/dais - Documentos/02_TALA/01_datos/03_hidrologia/credenciales_ftp.R")

# valores de nivel previos
h = readRDS("C:/Users/Rafael Navas/Documents/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")
h = na.omit(h)

# rango de valores a leer del servidor
t1 = as.Date(max(h$date))
t2 = Sys.Date()

# lectura de valores actuactuales desde el servidor
filenames = getURL(url,userpwd = userpwd, ftp.use.epsv = FALSE,dirlistonly = TRUE)
filenames = unlist(strsplit(filenames, "\r\n"))
fechas = format(seq.Date(t1,t2,by="day"),"%Y%m%d")
filenames = filenames[substr(filenames, 12, 19)%in%fechas]

for(j in 1:length(filenames)){
  f = try(getURL(paste(url,filenames[j], sep="/"), userpwd = userpwd))
  f = unlist(strsplit(f, "\r\n"))
  f = read_misTele2(f)
  h = join(f,h,type="full")
}

h = h[order(h$date),]
h = na.omit(h)

# save in INIA-DAIS
saveRDS(h, "C:/Users/Rafael Navas/INIA/dais - Documentos/02_TALA/01_datos/03_hidrologia/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")

saveRDS(h, "C:/Users/Rafael Navas/Documents/tala_at_margarita/post_processing_data/water_level_telemetric.RDS")

Última actualización - fecha: 02 julio 2020, hora: 08:29

Último registro recibido: 0.726 metros el 02/07/2020 00:00

A work by Rafael Navas